0 REM << RR17-7 >>
10 REM
20 REM =-=ASSEMBLER SOURCE CODE=-=
30 REM
210 .;-- SAVE SCREEN TO DISK --
220 .       ORG $C000
230 .       JMP :ENTRY
240 .:SAVE  .EQ $FFD8  ;S.A. OF 'SAVE'
243 .:SADDR              ;START SAVING
246 .       .DB $04 $00
250 .:EADDR              ;END SAVING
253 .       .DB $07 $E8
256 .:ENTRY
260 .       LDA :SADDR     ;HI BYTE
265 .       STA $FC
270 .       LDA :SADDR+$01 ;LO BYTE
275 .       STA $FB
280 .       LDA #$FB       ;ZERO PAGE
290 .       LDX :EADDR+$01 ;LO BYTE
300 .       LDY :EADDR     ;HI BYTE
310 .       JSR :SAVE
320 .       RTS            ;TO BASIC
330 .:END
340 .       .EN